home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / timetrak / report1.frm < prev    next >
Text File  |  1995-09-06  |  4KB  |  155 lines
  1. VERSION 2.00
  2. Begin Form report1 
  3.    Caption         =   " Time Tracking Report"
  4.    ClientHeight    =   5670
  5.    ClientLeft      =   4050
  6.    ClientTop       =   1560
  7.    ClientWidth     =   4455
  8.    Height          =   6075
  9.    Icon            =   REPORT1.FRX:0000
  10.    Left            =   3990
  11.    LinkMode        =   1  'Source
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   5670
  14.    ScaleWidth      =   4455
  15.    Top             =   1215
  16.    Width           =   4575
  17.    Begin CommandButton prtbtn 
  18.       Caption         =   "HardCopy"
  19.       Height          =   330
  20.       Left            =   2520
  21.       TabIndex        =   5
  22.       Top             =   5220
  23.       Width           =   1725
  24.    End
  25.    Begin CommandButton finbtn 
  26.       Caption         =   "Finish"
  27.       Height          =   330
  28.       Left            =   450
  29.       TabIndex        =   4
  30.       Top             =   5220
  31.       Width           =   1815
  32.    End
  33.    Begin CommandButton forwardbtn 
  34.       Caption         =   "+"
  35.       Height          =   825
  36.       Left            =   4230
  37.       TabIndex        =   8
  38.       Top             =   3285
  39.       Width           =   195
  40.    End
  41.    Begin CommandButton backbtn 
  42.       Caption         =   "--"
  43.       Height          =   825
  44.       Left            =   4230
  45.       TabIndex        =   7
  46.       Top             =   2340
  47.       Width           =   195
  48.    End
  49.    Begin PictureBox detail 
  50.       AutoRedraw      =   -1  'True
  51.       BorderStyle     =   0  'None
  52.       FontBold        =   -1  'True
  53.       FontItalic      =   0   'False
  54.       FontName        =   "MS Serif"
  55.       FontSize        =   8.25
  56.       FontStrikethru  =   0   'False
  57.       FontUnderline   =   0   'False
  58.       Height          =   3345
  59.       Left            =   135
  60.       ScaleHeight     =   3345
  61.       ScaleWidth      =   4065
  62.       TabIndex        =   2
  63.       Top             =   1485
  64.       Width           =   4065
  65.    End
  66.    Begin PictureBox header 
  67.       AutoRedraw      =   -1  'True
  68.       BorderStyle     =   0  'None
  69.       FontBold        =   -1  'True
  70.       FontItalic      =   0   'False
  71.       FontName        =   "MS Sans Serif"
  72.       FontSize        =   8.25
  73.       FontStrikethru  =   0   'False
  74.       FontUnderline   =   -1  'True
  75.       Height          =   375
  76.       Left            =   90
  77.       ScaleHeight     =   375
  78.       ScaleWidth      =   4380
  79.       TabIndex        =   3
  80.       Top             =   990
  81.       Width           =   4380
  82.    End
  83.    Begin PictureBox Picture1 
  84.       BackColor       =   &H00000000&
  85.       Height          =   60
  86.       Left            =   0
  87.       ScaleHeight     =   30
  88.       ScaleWidth      =   4575
  89.       TabIndex        =   1
  90.       Top             =   765
  91.       Width           =   4605
  92.    End
  93.    Begin Label pagenbr 
  94.       Caption         =   " "
  95.       Height          =   240
  96.       Left            =   1845
  97.       TabIndex        =   6
  98.       Top             =   4905
  99.       Width           =   870
  100.    End
  101.    Begin Label Label1 
  102.       Caption         =   "Time Tracking Report "
  103.       FontBold        =   -1  'True
  104.       FontItalic      =   0   'False
  105.       FontName        =   "Times New Roman"
  106.       FontSize        =   13.5
  107.       FontStrikethru  =   0   'False
  108.       FontUnderline   =   0   'False
  109.       Height          =   375
  110.       Left            =   855
  111.       TabIndex        =   0
  112.       Top             =   225
  113.       Width           =   3015
  114.    End
  115. End
  116.  
  117. Sub backbtn_Click ()
  118.    Print_Report 0
  119. End Sub
  120.  
  121. Sub finbtn_Click ()
  122.     Unload report1
  123.     Unload printselect
  124. End Sub
  125.  
  126. Sub Form_Load ()
  127.     If printFlag = 2 Then
  128.         prtfrm.Show
  129.     End If
  130.     pageno = 0
  131.     savtotal = "0"
  132.     Print_header
  133.     rc = PXRecFirst(ttrakTbl)
  134.     PXError
  135.     rc = PXRecGet(ttrakTbl, ttrakRec)
  136.     PXError
  137.     GetField ttrakRec, 1, "A"
  138.     key1(0, 1) = returnfld
  139.     key1(0, 2) = returnfld
  140.     GetField ttrakRec, 2, "N"
  141.     key2(0, 1) = Val(returnfld)
  142.     key2(0, 2) = Val(returnfld)
  143.     Print_Report 1
  144.     screen.mousepointer = 1
  145. End Sub
  146.  
  147. Sub forwardbtn_Click ()
  148.     Print_Report 1
  149. End Sub
  150.  
  151. Sub prtbtn_Click ()
  152.     PrintForm
  153. End Sub
  154.  
  155.